home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm1 / cnetmlls.lha / milles / CNetMilles.Show < prev    next >
Text File  |  1997-01-12  |  2KB  |  39 lines
  1. /**************************************************************************\
  2.     $VER: Mille Bornes Show, v1.13 (12-Jan-97) by Dotoran of Frontiers!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. ver=word(sourceline(2),5);a=word(sourceline(2),6);parse var a "("vdate")"
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  8. gu 1311992 ; path=result ; bar="cd"copies(d2c(196),79) ; c=0
  9.  
  10. START: ; c=c+1 ; if c>4 then signal START2
  11.   a1=random(1,2,time("s")) ; a2=random(2,5,time("s")) ; if a2=5 then a2=6
  12.   if ~exists(path"CNetMilles.Hi"word("Hands Games",a1)a2) then signal START
  13.   call open(f1,path"CNetMilles.Hi"word("Hands Games",a1)a2,"r")
  14.     do i=1 to 10;y=readln(f1);parse var y score.i" "y;scoreT.i=strip(y);end i
  15.   call close(f1) ; signal SHOWSCORES
  16. START2: ; score.=0;scoreT.="700 00-Jan-00 00:00AM No One Yet"
  17. SHOWSCORES: ; t="H A N D" ; if a1=2 then t="G A M E"
  18.   tr "f1@4z4ce  CNet Mille Bornes, "ver" last updated "vdate" by Dotoran of Frontiers BBS!  z0"
  19.   tr bar;tr "CcfC u r r e n t  r1c"substr("a9",a1,1)"  H I G H    "t"  r0  cfS c o r e sn1"
  20.   tr "Cc7For cd"a2"-Player c7Gamesn1"
  21.   tr "CcfPoints  caMiles  cbDate/Time Achieved  cePlayer Name(s)";tr bar
  22.   do i=1 to 10;se "cf"right(score.i,16);parse var scoreT.i v1 v2 v3 v4
  23.     tr "ca"right(v1,7)"  cb"v2" "right(v3,8)" ce"v4;end i;tr bar
  24.   se "n1Cc7Would cbYOU c7like to try getting caYOUR c7name on the ceabove c7list? cf[ceNocf]ce: "
  25.   gc;a=result;call CHECK;if a~="Y" then do;tr "No";exit;end;else tr "Yesn1"
  26.   se "c7Now celoading cbMille Bornesc7...#0"path"CNetMilles}"
  27.  
  28. exit
  29. CHECK:;if ARG() & ARG(1)~='###PANIC' then return ARG(1)
  30.   getcarrier;if result='TRUE' then if ARG() then return ARG(1);else return
  31.   logentry 'Lost Carrier!!';bufferflush;exit
  32. SYNTAX:;ERROR:;IOERR:;e1='n1 Error: 'rc' ('errortext(rc)')'
  33.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960
  34.   b=result;c='"'a||b', 'ver'"';e2=e2' 'c;tr e1;tr e2;logentry e1
  35.   logentry e2;e=translate(sourceline(sigl),"\{","");do while e~=''
  36.   e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush
  37. /**************************************************************************\
  38. \****************************************** Frontiers BBS (716)/823-9892 **/
  39.